indVesaMode(xsize,ysize,24);
	END;
	IF mode = 0 THEN BEGIN
		WriteLn('No such mode could be found !');
		WriteLn('Switching to to 320x200.');
		ReadKey;
		mode := V320x200x256;
	END;
END;

begin { program body }
  SelectMode;
  Initialize;
  ReportStatus;

{  AspectRatioPlay; }
  FillEllipsePlay;
  SectorPlay;
  WriteModePlay;

  ColorPlay;
  { PalettePlay only intended to work on these drivers: }
  if (GraphDriver = EGA) or
	  (GraphDriver = EGA64) or
	  (GraphDriver = VGA) then
	 PalettePlay;
  PutPixelPlay;
{  PutImagePlay; }
  Ran